Georgia Wildfire Prevention/Georgia Wildfire Prevention.iso/pc/media/dirs/BackUp/Intro.dir/00043_Script_buttonbehavior2

Text File | 2002-10-15 | 3KB | 82 lines

--PROPERTIES--
--Hot: The member switched to (hot state).
--FlashSpeed: The speed in which the sprite flashes measured in ticks (1/60th of a sec.)
--Message: The message sent to the stage.
--Glowing: Lets the function know if the sprite is hot or cold.
--RollOvr: The member switched to when rolled-over.
--ButtonSound: The sound that will play when clicked. Channel 2 is reserved for short sounds.
--TimeTracker: Times out the seconds between flashes.
--SpNum: The sprite number of the sprite.
--MyNum: The member's number.
--FlashWait: How long to wait before flashing

global zeus
property Hot, FlashSpeed, Message, Glowing, RollOvr, ButtonSound, TimeTracker, SpNum, MyNum, FlashWait, AssocImage

--Captures the spritenumber.
on new me
  SpNum = me.spritenum
  MyNum=sprite(SpNum).member.number
end

--Creates the dialog box for the behavior.
on getpropertydescriptionlist me
  set pList = [#Hot:[#comment: "What is the cast member name for the Hot state?", #format: #string, #default: ""], \
 #RollOvr: [#comment: "Which member would you like to use for the rollover?", #format: #string, #default: ""], \
 #AssocImage: [#Comment: "Which image is this member associated with?", #format: #string, #default: ""],\
 #ButtonSound:[#comment: "What sound would you like to play when the button is pressed?",#format:#string,#default:"Click"],\
 #Message:[#comment:"What movie would you like to open?",#format:#string,#default: "Next"],\
 #FlashSpeed:[#comment:  "How often would you like the member to flash (ticks)?", #format: #integer, #range: [#min: 0, #max: 60], #default: 0], \
 #FlashWait: [#comment: "How Long would you like to wait before Flashing (ticks)?", #format:#integer, #default: "0"]]
  return plist
end

--This is for the rollover.
on mouseenter me
  sprite(SpNum).membernum = member(RollOvr).number
  if AssocImage <> "" then
    set TheMouseEnter = 1
    sendallsprites(#imagechange, AssocImage, TheMouseEnter)
    end if
    sprite(SpNum).cursor = 280
    updateStage
end
on mouseleave me
  sprite(SpNum).membernum = member(MyNum).number
  set TheMouseEnter = 0
--  sendallsprites(#imagechange, "Start", TheMouseEnter)
  sprite(SpNum).cursor = 293
  --Glowing = 0
  updateStage
end

--This goes to another frame and tells the movie what to do. Also plays the sound, if any.
on mousedown me
  if  ButtonSound <> "" then
    sound(2).play(member(ButtonSound))
  end if
  WhichMovie (zeus, message)
end

--This toggles the flashing object back  and forth at the desired speed while the mouse is not over it.
--on prepareframe me
--  if FlashSpeed <> 0 then
--    if the timer > FlashWait then
--      if sprite(SpNum).cursor <> 280 then
--        set TimeTracker = the ticks
--        repeat while the ticks < TimeTracker + FlashSpeed
--          nothing
--        end repeat
--        if Glowing = 0 then
--          sprite(SpNum).membernum = member(Hot).number
--          Glowing = Glowing + 1
--        else
--          sprite(SpNum).membernum = member(MyNum).number
--          Glowing = GLowing - 1
--        end if
--        updateStage
--      end if
--    end if
--  end if
--end